#include "ManagedBlasProvider.h"
#include <stdio.h>

int SmartMathLibrary::Blas::Engine::ManagedBlasProvider::xerbla_(char *srname,
  integer *info)
{
  /*  -- LAPACK auxiliary routine (version 3.1) --   
  Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,   
  Courant Institute, Argonne National Lab, and Rice University   
  November 2006


  Purpose   
  =======   

  XERBLA  is an error handler for the LAPACK routines.   
  It is called by an LAPACK routine if an input parameter has an   
  invalid value.  A message is printed and execution stops.   

  Installers may consider modifying the STOP statement in order to   
  call system-specific exception-handling facilities.   

  Arguments   
  =========   

  SRNAME  (input) CHARACTER*6   
  The name of the routine which called XERBLA.   

  INFO    (input) INTEGER   
  The position of the invalid parameter in the parameter list   
  of the calling routine.   

  ===================================================================== 
   */

  printf("** On entry to %6s, parameter number %2i had an illegal value\n",
    srname,  *info);

  /*     End of XERBLA */

  return 0;
} /* xerbla_ */
